{ TFieldDescPattern}

procedure TFieldDescPattern.SetPiCList(AValue: TStringList);
begin
  if AValue=nil then
    FPiClist.Clear
  else
    FPiClist.Assign(AValue);
end;

constructor TFieldDescPattern.Create(AType: TBaseFieldType);
begin
  FWidth:=128;
  FType:=AType;
  FPiClist:=Nil;
  FEditMask:='';
  FVisible:=True;
  FPersisten:=False;
  FPiClist:=TStringList.Create;
end;

destructor TFieldDescPattern.Destroy;
begin
  FPiClist.Free;
  inherited Destroy;
end;

procedure TFieldDescPattern.AddValidateFunction(F: TValidateValueFunction);
begin
 SetLength(FValidateFunction,Length(FValidateFunction)+1);
 FValidateFunction[Length(FValidateFunction)-1]:=F;
end;

procedure TFieldDescPattern.AddNormalizeFunction(F: TNormalizeValueFunction);
begin
  SetLength(FNormalizeFunction,Length(FNormalizeFunction)+1);
  FNormalizeFunction[Length(FNormalizeFunction)-1]:=F;
end;

